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BBBBBBBB AAAAAA SSSSSSSS PPPPPPPP 000000 WwW WW GGGGGGGG JJ 
8B 8B SSSSSSSS PPPPPPPP 000000 Wl Wl GGGGGGGG JJ 
BB 8B AA SS PP PP 00 00 WW WW GG JJ 
BB BB AA AA SS PP PP 00 00 WW WW GG JJ 
8B BB AA SS PP PP 00 00 WW WW GG JJ 
8B BB AA AA SS PP PP 00 00 WW WW GG JJ 
BBBBBBBB AA AA SSSSSS PPPPPPPP 00 00 WW WW GG JJ 
AA SSSSSS PPPPPPPP 00 00 WW WW GG JJ 
8B BB AAAAAAAAAA SS PP 00 00 WW WW WW GG GGGGGG JJ JJ 
8B BB AAAAAAAAAA SS PP 00 00 WW Ww Ww GG GGGGGG JJ JJ 
6B BB AA AA SS PP 00 00 WWWW WWWW GG GG JJ JbJ aves 
8B BB AA AA SS PP 00 00 WWwWW WwWWW GG GG JJ JJ oe 
BBBBBBBB AA AA SSSSSSSS PP 000000 Wid tal GGGGGG JJJIIJ noes 
AA AA SSSSSSSS pp 000000 Whi WwW GGGGGG JJJJJJ aeue 
LL III] SSSSSSSS 
LL H1111 SSSSSSSS 
LL I] SS 
LL I] ss 
LL II SS 
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LL II SS 
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it 47 DECLARATIONS 
(3) 82 BASSPOWGJ = BASIC gfloat ** Long 
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BASSPOWGJ ; BASIC gfloat ** Longword routine 15-SEP-1984 9:34 VAX/VMS Macro v04-00 Page 1 
| 1-002 ° . aaSEe1SBs FBiseitG HANENAS Sees YORIOS uae. Pade OI, 
-TITLE BASSPOWGJ ; BASIC gfloat ** lLongword routine 
-IDENT /1-002/ : File: BASPOWGJ.MAR Edit:PLL1002 


| subenennbeneebegauneennseounnensuneonnnnneenasanennenensoanenenennennnsenens 


Std fg! (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ogi 
ONLY IN ACCORDANCE WITH T THE 


polo lo lololololololo) 
folelelelelelelelolo) 


;* ‘ 

3* * 

3% ® 

3 * 

3° * 

83 38 8 

8 ;* N HE $s SU LICENSE AND WITH * 

0 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR A E * 

00 3* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

00 3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

b8 3* TRANSFERRED. * 

se 7 

00 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

00 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

BB :* CORPORATION. * 

s* * 

00 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

0000 93 is ; 

*® = 

0000 WITITIIITIIITITI ITI TITIII IIIT TTTLLILi LiL t iii Li Titi ii ii 
0000 : 


p++ 
3; FACILITY: Basic Support Library 
> ABSTRACT: 


This module contains entry points to support SaROnEn TOR TOR 
(** or “) in BASIC-PLUS-2 for GFLOAT ** LONGWORD. 


: ENVIRONMENT: User Mode, AST Reentrant 
: AUTHOR: P. Levesque , CREATION DATE: 5-Oct-81 
: MODIFIED BY: 


; 1-00) - Original 
; 1-002 - Fix typo that references POWGJ. PLL 23-Mar-1982 
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yercyye oe cro V04-00 
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Prevent undeclared 
symbols from eth 
automatically global. 


OTS$ gfloat ** int exponentation 


Divide by Zero 
Error reporting routine 


L, LCL, SHR, = 


BASSPOWGJ - ; BASIC gflo SEP-1984 23:59 
1-002 BECLARATIONS 27eee= 138s F882 
90 4? -SBTTL DECLARATIONS 
09 3 ; INCLUDE FILES: 
000 1 
000 ¢ ; 
B80 i ; EXTERNAL DECLARATIONS: 
0000 55 -DSABL GBL 3 
0000 § 3 
0000 5 3 
ta 
000 .EXTRN OTS$POWGJ : 
0000 60 -EXTRN BAS$K_DIVBY_ZER : 
0000 61 -EXTRN BASS$SSTOP j 
0000 6¢ 
0000 635 ; 
0000 64 ; MACROS: 
0000 65 ; 
0000 66 
0000 67 ; 
0000 68 ; EQUATED SYMBOLS: 
0000 69 ; 
0000 70 
0000 7i 3 
0000 ug 3; OWN STORAGE: 
0000 73; 
0000 74 
0000 75 
0000 76 ; PSECT DECLARATIONS: 
0000 77 ;: 
00000000 78 -PSECT _BAS$CODE PIC, USR, CON, RE 
44 O° EXE, RD, NOWRT, LONG 


ror 


~a  y 
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| 
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1-002 
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SIC gfloat ** long 


oat ** long 
Pm -SBITL BASSPOWGJ 
FUNCTIONAL DESCRIPTION: 


This routine takes BASE ** EXP, using the following table 
for unusual cases: 


“SEP 
~SEP 
- BA 


BASE > 0 Call OTS$POWGJ, normal case. 

BASE = 0, EXP > 0 Return 0.0. 

BASE = 0, EXP = 8 Return 1.0. 

BASE = 0, EXP < Error: divide by zero 

BASE < 0, EXP even Call OTS$POWGJ with -BASE 

BASE < 0, EXP odd Call OTS$POWGJ with -BASE, negate result 


CALLING SEQUENCE: 
CALL result.wqg.v = BASS$POWGJ (base.rg.v, exponent.rl.v) 


; INPUT PARAMETERS: 


base = 4 
exponent = 12 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


gfloat result of exponentiation 
SIDE EFFECTS: 


Will pignat Divide By Zero if its arguments are bad, 
and OTS$POWGJ may also signal. 


BASSPOWGJ: : »MASK OTS$POWGJ 


Entry point , 

Since this routine uses no 
registers and usually transfers 
control to OTS$POWGJ, we copy 
its register save mask and then 
JMP past its save mask and only 
save the registers once 

Test base relationship to zero 
If base leq 0, do case enol ysis 
Transfer control to the OTS 


. base (AP) 
G*OTSSPOWGJ+2 


D 12 
| BASSPOWGJ ; BASIC gfloat ** lLongword routine 15-SEP-1984 59:34 VAX/VMS Macro v04-00 Page 
atts bassPowGs - BASIC gt toat ** Long 278Eb= 1382 8; 4:10 (CBASRTL.SRCIJBASPOWGJ .MAR; 1 . dh 
pe 173 a ; routine to do exponentiation 
SOF 141 : Come here if the base is less than or equal to zero. We must filter 
i 136 : several special cases, as described above. 
18 «(13 20 144 is: BEQL 6 4$ ; Branch if base = 0 
C AC __DD ! 1 145 PUSHL exponent (AP) 3; Stack EXP as parameter to OTS$POWGJ 
7E 4 at 52FD 001 198 MNEGG base(AP), -(SP) 3 Stack -base also 
00000000'cF 03 FE 0018 14 CALLS #3, G*OTS$POWGJ : Call integer power routines 
04 0C AC €9 poi 148 BLBC exponent (AP) ,2$ ; Branch if exponent even 
50 50 52FD 0023 149 MNEGG RO, RO ; Exponent odd negate the result 
04 i 130 2s: RET : and return with it. 
(028 136 : Come here if the base is equal to zero. The value we return depends 
3 4 132 3; upon the sign of the exponent. 
Oc AC DS 30 8 155 4s: TSTL exponent (AP) ; Test the exponent against zero 
OA 19 Q02B 156 BLSS 6$ ; Branch if exponent [ss 0 
03 «13 Base 13 m BEQL 5$ ; Branch if exponent is 0 
BOSE 159 : Come here if the base is zero and the exponent is greater than zero. 
QOO2F 160 ; BASIC defines this as 0.0. 
pose 161 ;- 
50 7C O02F 19¢ CLRG RO ; RO, R1 = 0.0 
04 Boe) 197 RET 3; Return to caller 
$035 165 : Come here if the base is zero and the exponent is zero. BASIC defines 
0032 166; this as 1.0. 
0032 167 ;- 
50 08 SOFD 0032 168 5$: MOVG #1, RO ; RO, R1 = 1.0 
04 0036 £169 RET ; Return to caller. 
0037 170 ;+ 
0037 171 ; Come here if the base is zero and the exponent is less than zero. 
pos \7¢ 3; BASIC defines this as an error. 
7E OO'SF 9A 0037 174 68: MOVZBL #BAS$K_DIVBY_ZER, -(SP) ; Divide by zero 
00000000'GF 01 FB te 102 CALLS #1, G*BASS$SSTOP ; Report error, never return. 
$b¢3 7 END 
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5 4 
Symbol table é- ¥9 00 


* Page 
POWGJ .MAR; 1 . 3) 


acro 
RCJBA 
BASSSSTOP erereeee = §6X 00 


BASSK _DIVBY_ZER tteeeree x 
pAsprOue, 0000000 RG 


BAS 
EXPONENT = 0000000C 
OTSS$POWGJ eereeree =X 00 


Soe anes enna ea} 


r 

PSECT name Allocation PSECT No. Attributes 
») 00 ¢ OO.) NOPIC USR CON ABS 
l 


. LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
oF OC 1.) PIC USR CON REL LCL SHR 


» ABS ., 
-BASSCODE 00000042 ( 6 EXE RD NOWRT NOVEC LONG 


Performance indicators ! 


' 
$e won nana oem ame Smo eamaeaaee $+ 


Phare Page faults CPU Time Elapsed Time 


Initialization 
Command processing "3 


ass 

Symbol table sort 0 
Pass 2 

Symbol table output 2 
Psect synopsis output 


Cross-reference output 0 
Assembler run totals 266 


= 
= 
ooooooooo 
Cooooooocoo 
Sooooocoooo 
ressssossco 
@9@eese@?es6e0es¢ 
SOOOWOfMo 
Conr—@ooul—o 
oooooococo 
oooooooo 
oooooocoo 


Soooooooo 


The working set Limit was 900 pages. 7 

1894 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 6 non-local and 5 local symbols. 
177 source Lines were read in Pass 1, producing 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


oor + 


: Macro Library statistics ! 
eeeeeeeoeeeeeeoeoceseeececs + 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBJSTARLET.MLB:2 SS” 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /L1S=L1S$:BASPOWGJ/0BJ=OBJ$:BASPOWGJ MSRC$:BASPOWGJ/UPDATE=(ENHS$ : BASPOWGJ ) 
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